home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 11 Exotic Applications / DIMAGE.SDA / DIMAGE.DOC (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  6.6 KB  |  22 lines
  1. 10 POKE56,160:POKE55,.:CLR:M$=CHR$(13)
  2. 20 POKE251,112:POKE252,10:POKE2,.:PRINT"[147][208]RESS P FOR TEXT TO PRINTER."
  3. 30 PRINT"[208]RESS S FOR TEXT TO SCREEN."
  4. 45 PRINT"[208]RESS X TO EXIT."
  5. 50 GETA$:IFA$="P"THEN90
  6. 60 IFA$="S"THEN140
  7. 70 IFA$="X"THENPRINT"[142]":END
  8. 80 GOTO50
  9. 90 OPEN4,4,7
  10. 100 PRINT"[147][200][207][204][196] [210][197][212][213][210][206] [203][197][217] [196][207][215][206] [212][207] [193][194][207][210][212]."
  11. 110 PRINT"[208][210][201][206][212][201][206][199]..."
  12. 120 SYS2606:CLOSE4:IFPEEK(2)THENPRINT"...[196][207][206][197].":GOTO190
  13. 130 PRINT"[208][210][201][206][212][201][206][199] [193][194][207][210][212][197][196].":GOTO190
  14. 140 PRINT"[147][211][208][193][195][197][194][193][210] [212][207][199][199][204][197][211] [196][201][211][208][204][193][217] [207][206]/[207][198][198]."
  15. 150 PRINT"[208][210][197][211][211] [210][197][212][213][210][206] [212][207] [211][212][193][210][212]."
  16. 160 GETA$:IFA$=M$THEN180
  17. 170 GOTO160
  18. 180 PRINT"[147]":SYS2640
  19. 190 PRINT"             [208][210][197][211][211] [210][197][212][213][210][206]."
  20. 200 GETA$:IFA$=M$THEN20
  21. 210 GOTO200
  22.